home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Fritz: All Fritz
/
All Fritz.zip
/
All Fritz
/
FILES
/
UTILENUS
/
MARXMENU.LZH
/
MENUS.EXE
/
DOLIST.MNU
< prev
next >
Wrap
Text File
|
1990-09-19
|
1KB
|
65 lines
Comment
=============================================================
=============================================================
EndComment
Var
Env, Env2, BoxDim, SetString, SetA, SetB
ClearScreenOnExit Off
MasterEnvironment
ReadEnvironment(Env)
UseArrows
BoxBorderColor Green Blue
BoxInsideColor Yellow Blue
if ColorScreen
BoxHeaderColor Yellow Mag
InverseColor Yellow Red
else
BoxHeaderColor Black Grey
InverseColor Black Grey
endif
BoxHeader ' Dolist Menu '
DrawBox 24 3 32 9
TextColor LCyan Blue
ClearLine 205
TextColor Yellow Blue
Writeln
Writeln ' A - Environment'
Writeln ' B - Trace On'
Writeln ' C - Trace Off'
Writeln ' D - Return Codes On'
Writeln ' E - Return Codes Off'
Write ' F - Help'
OnKey 'A'
|Overlay 'ENV'
|ExitMenu
Onkey 'B'
|StuffKBD = '@Trace On' + CR
|ExitMenu
OnKey 'C'
|StuffKBD = '@Trace Off' + CR
|ExitMenu
OnKey 'D'
|StuffKBD = '@RC On' + CR
|ExitMenu
OnKey 'E'
|StuffKBD = '@RC Off' + CR
|ExitMenu
OnKey 'F'
|StuffKBD = 'DoHelp' + CR
|ExitMenu